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COPYRIGHT (ed 1978, 1980, 1982, 1984 8 
DIGITAL PMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGH : VAESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
LY io ACCORDANCE WITH THE TE oe OF SUCH Bae NSE AND WITH THE 
INCLUSION OF THE ABOV creer NOTICE. THIS SOFTWARE OR ANY OTHER 
COP! 3 THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oeppokat ibe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: Language-independent support Library 
“ABSTRACT: 
p VERSION: 1 
HISTORY: 
; Z AUTHOR: 
000 4 Herb Jacobs August 1981 
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Assign channel to device 


CLARATIONS 


16-SEP=1 AX/VMS 
g- Ep 1986 reat 40: 3 VMSLIB.SR 
.SBTTL DECLARATIONS 
: INCLUDE FILES: 
SF ABDEF 
SNAMDEF 


; EXTERNAL SYMBOLS: 


MACROS: 


PSECT DECLARATIONS: 


-PSECT _LIBSCODE PIC, SHR, LONG, EXE, NOWRT 


; EQUATED SYMBOLS: 


Donte pissin 
FUN" OC ODN NEU OOODNOUNS 
. . 


cro yeeste 
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-SBTTL LIBSASSIGN - 


3:44 
FUNCTIONAL DESCRIPTION: 


These routings prov tds a general mechanism - get a channel assigned 
to the associated device with a file specification. The channel 
assigned is always to the device, never to the file. The purpose 

of these routines are to successfully accomplish up cased recursive 
logical name translation and succeed with process pyreenens files. 
Since these routines use RMS as a basis, compatibility is assured 
with all working programs. 


; CALLING SEQUENCE: 
ret = LIBSASSIGN ( filedesc, chan) 
ret = LIBSASSIGN_FILE ( filedesc, chan) 
ret = LIBSASSIGN_DEV ( filedesc, chan) 
INPUT PARAMETERS: 
FILEDESC = Address of character string descriptor describing input 


: IMPLICIT INPUTS: 


SOSOOCSCOOOOOOOSOOOOOOOOOSoSo 


=] 


; NONE 

: OUTPUT PARAMETERS: 

: CHAN - Address of word to recieve channel number assigned 
: IMPLICIT OUTPUTS: 

; NONE 

; COMPLETION CODES: 


SS$_NORMAL = success 
ALL other completion codes are generated as RMS or SS codes. 


SIDE EFFECTS: 
NONE 
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SENTRY - 
0000 LIBSASSIGN, “M<> 
41° AF 6¢ FA CALLG (AP) B*LIBSASSIGN_DEV [ATTEMPT DEVICE ASSIGNMENT 
16 8 BLBS RO, 16 :BRANCH IF SUCCESSFUL 


; PROCESS LIST OF RECOGNIZABLE FAILURES AS A DEVICE NAME THAT SHOULD BE 
; RETURNED AS AN ERROR RATHER THAN ATTEMPTING AS A FILE NAME 


CMPL #RMSS_CHN,RO DEVICE ALLOCATED 


BEQ 
50 00000000' bror spass _PAV.RO NO PRIVILEGE FOR DEVICE ACCESS 
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gayle (AP) ,B*LIBSASSIGN_FILE sATTEMPT AS GENERAL FILE SPEC 


108: RETURN STATUS FROM SUBROUTINE 


: GET CHANNEL ASSOCIATED WITH FILE SPEC, ASSUME NO SPECIAL PUNCTUATION 


.ENTRY = 
LIBSASSIGN FILE omer? R3,R4,R5,R6> 
SUBL  #F ABSC_BLN+NAMSC_BLN, SP ;ALLOCATE ROOM FOR FAB AND NAM 


MOVL  SP,R6 'GET ADDRESS OF FAB 
SBW = ASSIGN SETUP [PERFORM COMMON SETUP 
PARSE FAB=<(R6)> [GET THE DEVICE INFORMATION 
108: LBC 0,208 'BRANCH IF ERROR TO RETURN CODE 
CALLG (AP),W*ASSIGN_CHAN [CALL FOR STACK CLEANUP 
208: RET : CHANNEL 
: GET CHANNEL ASSOCIATED WITH FILE SPEC, FORCE TO LOOK LIKE DEVICE NAME AND 
: ONLY SUCCEED IF INPUT REPRESENTS DEVICE NAME. 
.ENTRY = 
LIBSASSIGN DEV, “M<R2,R3,R4,R5,R6> 
SUBL © #FABSC_BLN+NAMSC_BLN,SP ;ALLOCATE ROOM FOR FAB AND NAM 
MOVL _—SP,R [GET ADDRESS OF FAB 
BSBW  ASSIGN_SETUP [PERFORM COMMON SETUP 
10$ LOCC = #*A/:/ TRO, (R1) [DOES STRING CONTAIN A COLON? 
BEQL 208 ‘BRANCH IF NO 
DECL «sR [WAS THIS LAST CHARACTER? 
BEQL 308 [BRANCH IF YES 
CMPB 0 #*A/:/,1(R1) 1S THIS A NODE SPECIFIER? | 
BNEQ 308 BRANCH IF NOT, EXPLICIT ‘*:' 
ADDL #2, R1 ‘BUMP PAST ''::“ 
DECL ONE LESS CHARACTER IN COUNT 
BRB 10$ [TRY FOR REAL '': 
20$:  MOVZBL (R2),RO 'GET SIZE OF STRI i: 
ADDL  #4,R6 [ROUND UP FOR STACK ALIGNMEN7 
BICL #3.RO [SIZE NEEDED ON STACK 
SUBL_ RO.SP TALLOCATE SPACE FOR COPY 
vcs (R3) .@4(R2) ,.#*A/:/,R0, (SP) [MAKE A COPY WITH A '':'' AT END 
ADDBS #1,a4(AP), FABSB_FNS(R6) :SET SIZE WITH COLON 
VL SP. FABSL_FNA(R6 :SET ADDRESS OF COPY 
308: BBSS #FABSV_NFS,FABSL_FOP(R6),35$ § :SET NON FILE STRUCTURE ACCESS 
$: SPARSE FAB=<(R6)> [GET THE DEVICE INFORMA 
40S: RO, 50$ [BRANCH IF ERROR TO RETURN CODE 
MOVZWL #SS$_IVDEVNAM,RO [ASSUME FAILURE 
BITL  #<NAMSM_ EXP DIR'NAMSM_EXP_NAME!-:CHECK FOR ANYTHING BUT DEVICE 
NAMSM_ERP_TYPE ‘NAMSM_ EXP JER! ~ 
NAMSM”GRP~MBR'NAMSM_QILDCARD>,- 
NAMSL _FNB*FABSC_BLNTRO) 
BNEQ 508 :BRANCH IF ANY OTHERS SET 
ses CALLG (AP) ,W*ASSIGN_CHAN [CALL FOR STACK CLEANUP 
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Routine used for common setup between ASSIGN_FILE and ASSIGN_DEV 
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ASSIGN_SETUP: 

MOVL #LIB$_INVARG,RO ASSUME FAILURE 

CMPB Os #0, (AB) TARE THERE 2 ARGUMENTS? 

BNEQ ss ‘BRANCH IF NOT 

CMPW 30s #255, @4( AP) :1S SIZE OF DEVNAME REASONABLE? 

“" ae “BRANCH IF SIZE TOO BIG 

movcS # (SP) #0, #7 ABSC $C_BLN,(R6) ;ZERO THEM 

MOVE #FABSC_610.FAB :SET BLOCK ID TO FAB 

MOVE #FABSC"BLN,FABSB “SET LENGTH OF FAB 

MOVB $#NAMSC"BID,NAMSB— 6) ;SET BLOCK ID TO NAME BLOCK 

MOVE #NAMSC”BLN.NAMSB R6) :SET LENGTH OF NAME BLOCK 

MOVAB FABSC_BLN(RO) FAB sINDICATE NAME BLOCK EXISTS 

MOVL 4 (AP)TR 3GET ADDRESS OF DESCRIPTOR 

MOVZBL (R2),RO SGET SIZE OF STRING 

MOVL 4(R25,R1 [GET ADDRESS OF STRING 

MOVE RO, FABSB_FNS(R6) [SET SIZE OF DEVICE NAME 

MOVL  R1,FABSLTFNA(RO) [SET ADDRESS OF DEVICE NAME 
10$:  RSB SRETURN 
3 Routine used for common closure for both ASSIGN_FILE and ASSIGN_DEV 
ASSIGN_CHAN: 

.WORD 0 SUSE COMMON REGISTER SET 

MOVAB NAMST_DVI+1+FABSC_BLN(R6),R4 SET UP ADDRESS OF DEVICE NAME FIELD 

PUSHL [FORM A DESCRIPTOR 

MOVZBL =1(R4),-(SP) 7GET SIZE OF FIELD 

MOVL SP,R =R5 1S INPUT DESC FOR $TRNLOG 

CMP #*A\_\, (RO) :D0 WE ALREADY HAVE A PHYSICAL ? 

BEQL 108 ‘BRANCH IF YES TO ASSIGN THE CHANNEL 

SUBL #50,SP SALLOCATE A BUFFER 

PUSHL SP [SET UP THE ADDRESS 

PUSHL #50 SAND SIZ 

MOVL ‘SP RS :R3 1S OUTPUT DESC FOR $TRNLOG 

STRNLOG_S (R5),(R3),(R3) TTRANSLATE THE STRING 

BLBC ~RO,208 LUR 


MOVL 5 
CHPE f £.94(R5) 


10$: PUSHL 


MOVL P.R 
SASSIGN_S (R5),(R2) 
BLBC 

MOV) (R20), @8(AP) 
208: RET 


BRANCH IF FAILURE 
;SET UP TO USE TRANSLATED STRING 
;DOES OUTPUT START WITH ESCAPE? 


;BARNCH 
sREDUCE SIZE BY PROCESS PERM STUFF 
;POINT PAST IT 

zAREA TO GET CHANNEL BACK IN 

GET ADDRESS OF AREA 

sASSIGN A_ CHANNEL 

;BRANCH_IF THIS METHOD FAILS ALSO 
oh He CHANNEL FOR THE USER 


Siecet | BRIS BERS 
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Symbol table ‘ B2SE p= 1986 $6:40:09 EYMSLIB. SRCILIBASSIGN.MAR; 1  - 
$$. TMP! = 01 3 
$$. TMP2 a 36 F 
$$Ti = $ 
ASSIGN_CHAN FIR 8 3 
ithe SETUP hy R ; 
FABSB_BI1D = 3 
FABSB_BLN = 1 ; 
FABSB_FNS = 4 3 
FABSC_BID = 3 3 
FABSC_BLN = ’ 
FABSL_FNA = C ; 
FABSL_FOP = 4 $ 
FABSL_NAM = ; 
FABSV_NFS = 00 3 
LIBSASSIGN 0000000 RG 0 ; 
LIBSASSIGN_DEV 44 41 RG : 
LIBSASSIGN_FILE 0000020 RG 3 
LIBS_INVARG etereeee =X : 
NAMSE_BID = 4444 : 
NAM$B_BLN = 00000001 3 
NAMSC_BID = 000 49 4 ; 
NAMSC_BLN = 000 B86 3 
SL_ = 00000034 3 
NAMSM_EXP_DIR = 4444 6644 3 
NAMSM_EXP_N. = 00000004 3 
NAMSM_EXP_ TYPE = 9000000 ‘ 
N WEXP_V = 4 442 3 
SM_GRP_MBR = 00080000 3 
NAMSM_WILBCARD = 00000100 ; 
NAMS$T_DVI = 00000014 3 
RMS$_CHN eeeeeeee X 02 : 
RMS$_PRV gererene x 02 : 
SS$_TVDEVNAM teeeenee x Oe 3 
SYSSASSIGN eeeneeee GX 0 3 
SYSSPARSE keekerer GX 8S : 
SYSSTRNLOG keereeeke GX 0 ; 
eeeeeeeeeaeeceeeen + P+ 
! Psect synopsis ; : 
PSECT name Allocation PSECT No. Attributes : 
- oe % 000008 ( 8-3 0 ¢ 9} NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE : 
SABSS$ 00 ? ( -») O1¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 8 
_LIBSCODE 000001 ( 336.) 2¢ 2.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG . 
pooner ne nen ana nem emcee ee a Py 
! Performance indicators ! 3 
: Perf indicat ; : 
Phase Page faults CPU Time Elapsed Time : 


LIBSASSIGN 3; Assign channel to device 197 3e- 1382 fe tee y 
VAX=11 Macro Run Statistics SEP=-1984 04:40:09 


Pass e 57 -90 :00:01.86 
Symbol table output :00:00.04 :00:00.04 
Psect synopsis output :00:00. :00:00. 
Cross-reference output :00:00. :00:00. 
Assembler run totals 374 ’ 713.6 


The yorking ef Limit was 1050 pages. 

21183 bytes (42 pages) of virtual memory were used to buffer the intermediate sgde. 

There were 20 pages of symbol table space allocated to hold 351 non-local ane local symbols. 
238 source Lines were read in Pass 1, produc ing 19 object records in Pass 2. 

16 pages of virtual memory were used to define 14 macros. 


Ferre en em ee mean sae ene ao ee + 


! Macro Library statistics ! 


Poa waren een me moses emo oe Ree + 


Macro Library name Macros defined 
_$255SDUA2B: (SYSLIBISTARLET .MLB; 2 ete Be 
486 GETS were required to define 11 macros. 

There were no errors, warnings or information messages. 


MACRO/DISA=TRACE/LIS=LIS$:LIBASSIGN/OBJ=O0BJ$:LIBASSIGN MSRC$:LIBASSIGN/UPDATE=(ENHS$:LIBASSIGN) 
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